5 DV=PEEK(186):IFDV<8THENDV=8
7 DIMW$(300)
10 POKE53281,0:POKE53280,0:PRINT""
12 SYS57812"INP/CM CE00",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
16 SYS52736,"ORDFORM 98",DV
18 H=PEEK(252)*256+PEEK(251)
100 PRINT"[147][158]      [211] [213] [205] [205] [197] [210]   [211] [193] [214] [201] [206] [199] [211]
102 [153]"               (null)(null)STR$VAL(null) ASC(null)(null)(null)
104 PRINT"         1  [154][208]RINT ORDER FORM
106 [153]"         2  CONT(null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)
110 GETA$:IFA$<"1"ORA$>"2"THEN110
112 IFA$="2"THEN300
120 PRINT"[159]   [211]ET YOUR PRINTER AT THE TOP OF A
130 [153]"    PAGE AND PRESS A KEY.
135 GETA$:IFA$=""THEN135
140 OPEN4,4,7:CLOSE4
150 IFST=0THEN200
160 POKE214,16:PRINT:PRINT"[150] [212][213][210][206] [217][207][213][210] [208][210][201][206][212][197][210] [207][206] AND PRESS A KEY."
170 GETA$:IFA$=""THEN170
180 GOTO100
200 OPEN4,4,7
210 FORI=0TOH
220 PRINT#4,W$(I)
230 NEXT:CLOSE4
240 GOTO100
300 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
310 IFER<>63THENEND
320 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
330 PRINT"RUN"
340 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:MARKETPLACE 98":CLOSE15:SAVE"MARKETPLACE 98",8:END